home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
H190.ZIP
/
VERTEX1.EXE
/
COLOR.PRG
< prev
next >
Wrap
Text File
|
1992-09-12
|
2KB
|
63 lines
//--------------------------------------------------------------------------
* Function: COLOR() --> NIL
*
* Synopsis: The program will first call the META function MFPICKCOLOR()
* and provides You with a set of predefined colors.
*
* ALL META functions make use of many VERTEX functions. The
* Boxes for instance are created using the BXBOX() function,
* Menus are created using the MNCHOICE() function and
* the MFSETCOLOR() META function also makes use of the
* MNPULLDN() function.
*
* The MFSETCOLOR() function allows You to change not only the
* colors but also the appearance of the boxes.
*
* The information is stored in a file called SYSTEM.DAT
*
* Deleting this file causes the program to start up in the
* default color mode.
*
* To compile this program, use the provided sample MAKE
* scripts
* COLORBL.RMK for BLINKER or
*
* COLORRT.RMK for RTLINK
*
* and create it by calling:
*
* RMAKE COLORBL (if using BLINKER)
*
* or calling
*
* RMAKE COLORRT (if using RTLINK)
//---------------------------------------------------------------------------
FUNCTION color
LOCAL lScrSave := "",; && saved screen
lCurrCol := COL(),; && current cursor position (COLUMN)
lCurrRow := ROW() && current cursor position (ROW)
lScrSave := SAVESCREEN( 0, 0, MAXROW(), MAXCOL() )
utinit() && must be used as first function
&& to initialize drivers and globals
&& needed....
VICLS( 120,CHR(176) ) && clear the screen
mfpickcolor() && pick a provided colorscheme
mfsetcolor() && call color setting function
&& slide screen off........
VISLIDEOFF( 0, 0, MAXROW(), MAXCOL(), lScrSave, 1 )
DEVPOS( lCurrRow, lCurrCol ) && reset cursor to old position
RETURN NIL